Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 3 з курсу «Основи програмування та алгоритмічні мови» Тема: «Обчислення виразів. Використання стандартних функцій» Варіант 8 Виконав: ст. гр. КН-1 Львів-2006 Мета роботи : Вивчення порядку дій при обчисленні виразів. Одержання навиків запису виразів на мові Паскаль і використання Завдання : Створити файл програми на мові Паскаль і обчислити значення заданої функції. За допомогою клавіатури ввести координати точки і перевірити чи ця точка належить заданій області на координатній площині. 3. Відлагодити, скомпілювати і зберегти програму. 4. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 5. Оформити звіт про роботу. Постановка задачі : 1. Обчислити значення функції :
2. Ввести з клавіатури координати точки і перевірити чи ця точка належить заданій області на координатній площині. Блок-схема алгоритму Початок Ввід Х у11 = |у| Вивід у11 у22= |у11+0.5| Вивід у22 Ввід Х,У result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1) Ввід result Кінець program lab3; uses crt; label 1; var y,y11,y12,x,x1,y1,r:real; result:boolean; begin clrscr; 1:write('Vvedit x '); readln(x); if (x>-1)and(x<1) then begin y:=arctan(1/(sqrt(1-x*x)))+x*x; y11:=round(y);y12:=trunc(y); writeln('y=',y:5:2); writeln('y11=',y11:5:2); writeln('y12=',y12:5:2); end else begin writeln('nepravulnuu arhyment x e (-1;1)'); goto 1; end; writeln('Vvedit x1,y1'); readln(x1,y1); result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1); writeln(result); readln; end. Протокол роботи програми : ----------------------------------------------------------------------------------------------- Vvedit X = 2 nepravulnuu arhyment x e (-1;1) Vvedit X = 0.2; y=0.84 y11 = 1.00 y22 = 0.00 ---------------- X = 0.9 Y = 0.7 FALSE ----------------------------------------------------------------------------------------------- X = 0.9 y=1.97 y11 = 2 y22 = 1 --------------- X = 0.3 Y = 0.1 TRUE ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я одержав деякі навики запису виразів у середовищі Turbo Pascal, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.